home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1996 April / Macworld (1996-04).dmg / Educational Demos / Goldilocks Gamebook / Goldilocks.DIR / 00529_Script_529 < prev    next >
Text File  |  1995-11-20  |  573b  |  26 lines
  1. -- NextLoop
  2.  
  3. on mouseDown 
  4.   puppetSound "Click.AIF" 
  5.   repeat while stillDown() = 1 
  6.     set the visible of sprite 17 to false
  7.     set the castNum of sprite 16 to 513      
  8.     updateStage 
  9.     next repeat 
  10.     --if (mouseCast() <> MC + 1) then set the castNum of sprite (the ClickOn) to MC    
  11.     updateStage 
  12.   end repeat 
  13.   
  14. end
  15.  
  16. on mouseUp
  17.   global MC,pageCount
  18.   set the castNum of sprite 16 to 512  
  19.   updateStage  
  20.   put "S" & (PageCount + 1) into theLabel
  21.   put (PageCount + 1) & ".DIR" into theMov
  22.   go to "Intro" of movie theMov
  23. end 
  24.  
  25.  
  26.